#!/src/bin/perl -w
$filename = "les verbes.txt";
open (FILEIN,$filename);
%conjugaison = ("je","e","tu","es","il","e","nous","ons","vous","ez","ils","ent");
while($verbe = <FILEIN>)
{
   $verbe_infinitif = $verbe;
   if($verbe=~s/er//g)
   {   
		print "Conjugaison du verbe ".$verbe_infinitif." au present de l'indicatif:\n";
		foreach $prenom (keys %conjugaison)
		{
			print $prenom." ".$verbe.$conjugaison{$prenom}."\n";
		}
	}
	else
	{
		print "Ce verbe $verbe_infinitif ne se termine pas par er\n";
	}
}